﻿Imports System.Windows.Media.Media3D
Imports System.Data.SqlTypes

Namespace CoverFlow
    Friend Class CoverFactory
        Implements ICoverFactory
        Private ReadOnly visualModel As ModelVisual3D
        Public Sub New(visualModel As ModelVisual3D)
            Me.visualModel = visualModel
        End Sub
#Region "ICoverFactory Members"
        Public Function NewCover(host As String, path As SqlBinary, coverPos As Integer, currentPos As Integer) As ICover Implements ICoverFactory.NewCover
            Return New Cover(New ImageInfo(host, path), coverPos, currentPos, visualModel)
        End Function
#End Region
    End Class
End Namespace
